home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / dbfast20 / misc / ddeserv.prg < prev    next >
Encoding:
Text File  |  1993-11-16  |  724 b   |  23 lines
  1. * Esta es la aplicaci≤n servidor.
  2. * Este programa no hace nada, simplemente espera a que la
  3. * aplicaci≤n cliente lea datos de ella.
  4.  
  5. USE DDEEJEMP
  6.  
  7. STORE "CA" TO CHARVAR
  8. STORE 1 TO RECORDNO
  9.  
  10. @ 1,2 say "DATOS DEL ARCHIVO DBF:" FONT 15
  11. CREATE CONTROL BROWSE "DDEBrowse" at 4,5 save to RecordNo;
  12.    SIZE 2,50 STYLE VIEW
  13. @ 10,2 say "ARRANCAR EL PROGRAMA CLIENTE." FONT 15
  14. @ 14,2 say "ESTE PROGRAMA SOLO FUNCIONA SI" FONT 15
  15. @ 17,2 say "EL SERVIDOR ES UN ARCHIVO .EXE." FONT 15
  16. @ 21,2 say "<ESC> PARA DETENER EL SERVIDOR." FONT 15
  17.  
  18. DO WHILE .T.                && Vuelve a ejecutar este bucle hasta que se pulse ESC
  19.    MYEVENT=CHKEVENT()
  20.    IF MYEVENT=1 .AND. LASTKEY()=27   && Se ha pulsado ESC 
  21.      EXIT
  22.    ENDIF
  23. ENDDO